DrivenCurrent Derived Type

type, public :: DrivenCurrent


Components

Type Visibility Attributes Name Initial
real(kind=wp), public :: cu

?? может лучше cuj
real(kind=wp), public :: cu0

?? cujoh
real(kind=wp), public :: c

??
real(kind=wp), public :: c0

??
real(kind=wp), public, dimension(:), allocatable :: outj

outj(i) = LH driven current density, MA/m^2
real(kind=wp), public, dimension(:), allocatable :: ohj
integer, public :: grid_size

Constructor

public interface DrivenCurrent


Type-Bound Procedures

procedure, public :: evaluate => DrivenCurrent_evaluate

  • public subroutine DrivenCurrent_evaluate(this, ROC)

    Arguments

    Type IntentOptional Attributes Name
    class(DrivenCurrent), intent(inout) :: this
    real(kind=wp), intent(in) :: ROC